home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / ab20 / ab20_archive / games / strategy / madgic-corewar-4.0.lzh / 1987 / LINCOGS2.S < prev    next >
Text File  |  1988-07-09  |  619b  |  27 lines
  1. ; LinCoGs
  2. ; Mark A.Durham
  3. ; October 5, 1987
  4. ;
  5.        MOV     #4,     RETURN
  6.        JMP     RANDOM
  7. SRC    DAT             #0
  8. GAIT   DAT             #7
  9. RANDOM MOV     GAIT,   SRC
  10.        ADD     SRC,    SRC
  11.        ADD     SRC,    SRC
  12.        ADD     SRC,    GAIT
  13.        ADD     #1,     GAIT
  14. RETURN JMP     @RETURN
  15. BOMB   MOV     #4,     RETURN
  16.        MOV     GAIT,   @GAIT
  17.        JMP     RANDOM
  18. COPY   MOV     #BTM+1-SRC, SRC
  19.        MOV     #BTM-1, DEST
  20. DEST   ADD     GAIT,   #BTM
  21. LOCO   MOV     <SRC,   <DEST
  22.        JMN     LOCO,   SRC
  23.        SPL     @GAIT
  24.        MOV     #1,     RETURN
  25. BTM    JMP     RANDOM
  26.        END
  27.